0 PRINT"[147]":POKE53280,0:POKE53281,6:POKE646,1
1 PRINT"PROGRAMMING IN THE IRQ INTERRUPT"
7 PRINT"RUN THIS PROGRAM,THEN TYPE CHARACTERS IN UPPER LEFTHAND CORNER OF SCREEN"
8 PRINT"THE BORDER COLOR WILL CHANGE, DEPENDING ON SCREEN CODE OF CHARACTER"
9 PRINT"13-BYTE PROGRAM SETS UP THE INTERRUPT: 11-BYTE PROGRAM RUNS IT"
10 FOR I=5011 TO 5023:READ A:POKE I,A:NEXT
20 FOR I=5000 TO 5010:READ A:POKE I,A:NEXT
30 SYS 5011
40 END
47 REM  *** SYS CALL TO SET INTERRUPT VECTOR
48 REM BLOCK INTERRUPTS, SET VECTOR ADDRESS (LOW, HIGH), ENABLE INTERRUPTS
49 REM  SEI LDA#136 STA 788  LDA#19 STA 789 CLI RTS
50 DATA 120,169,136,141,20,3,169,19,141,21,3,88,96
57 REM  *** ACTUAL INTERRUPT ROUTINE
58 REM GET FIRST SCREEN CHARACTER; USE LOW NYBBLE TO SET BORDER COLOR
59 REM LDA 1024 AND#15 STA 53280 JMP 59953
60 DATA 173,0,4,41,31,141,32,208,76,49,234